home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ Plus Start Menu 1.xpl < prev    next >
Text File  |  2001-05-14  |  3KB  |  73 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="2"
  4. "UIPATH 1"="Appearance\Start Menu\Options"
  5. "UIPATH 2"="Appearance\System\Microsoft Plus!"
  6. "NAME"="3D Start Menu Icons"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable Microsoft Plus 3D Start Menu Icons"
  9. "TEXT 2"="Restore original Start Menu icons"
  10. "DESCRIPTION 1"="OPTION #1: This lets you enable the special 3D icons that come as part of Microsoft Plus. This will work with Windows 95 (when Microsoft Plus is installed), and should work with all versions of Windows NT, 98, 2000 and Me."
  11. "DESCRIPTION 2"="OPTION #2: This resets all changes and restores the icons to the Windows defaults. Note that if you have customized icons beforehand, you will loose some of your changes."
  12. "DESCRIPTION 3"="Note: There are no additional icons for the Favorites and Log Off items, so Windows 98/2000?me users and those of you with the Active Desktop Update will not be able to use this style of icon."
  13. "DESCRIPTION 4"="This setting affects all users of this computer, and you will need to rebuild the icon cache for these settings to take effect."
  14. "VERSION"="3.1"
  15. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "CONTACTURL"="http://www.neilrt.cwc.net/"
  18.  
  19. BASE="HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Shell Icons"
  20.  
  21. SUB Plugin_Initialize
  22.  w=GetWinSysDir
  23.  b=FileExists(w + "cool.dll")
  24.  If b=false then
  25.   Call Disable
  26.  end if 
  27. END SUB
  28.  
  29. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  30.  ' Get user's Windows Folder
  31.  W=GetWinSysDir
  32.  
  33.  ' Which button has been clicked?
  34.   i=ElementIndex
  35.   Select Case I
  36.  
  37.  ' Find out if 'Plus!' button has been selected
  38.    Case 1
  39.  ' Change each item to relevent index in cool.dll
  40.  ' Shut Down
  41.   Call RegWriteValue(BASE & "\27", W & "COOL.DLL,7",1)
  42.  ' Undock
  43.   Call RegWriteValue(BASE & "\26", W & "COOL.DLL,32",1)
  44.  ' Suspend
  45.   Call RegWriteValue(BASE & "\25", W & "COOL.DLL,33",1)
  46.  ' Run
  47.   Call RegWriteValue(BASE & "\24", W & "COOL.DLL,5",1)
  48.  ' Help
  49.   Call RegWriteValue(BASE & "\23", W & "COOL.DLL,25",1)
  50.  ' Find
  51.   Call RegWriteValue(BASE & "\22", W & "COOL.DLL,3",1)
  52.  ' Settings
  53.   Call RegWriteValue(BASE & "\21", W & "COOL.DLL,6",1)
  54.  ' Documents
  55.   Call RegWriteValue(BASE & "\20", W & "COOL.DLL,2",1)
  56.  ' Programs
  57.   Call RegWriteValue(BASE & "\19", W & "COOL.DLL,4",1) 
  58.   
  59.  Case 2
  60.  ' Delete all values!
  61.  For y=19 To 27
  62.  p=RegReadValue(BASE & "\" & y)
  63.  if IsEmpty(p)=false then
  64.   Call RegDeleteValue(BASE & "\" & y)
  65.  end if
  66.  Next
  67.  end select
  68. END SUB
  69.  
  70. SUB Plugin_Terminate
  71. END SUB
  72.  
  73.